R Markdown
knitr::opts_chunk$set()
if (requireNamespace("thematic"))
thematic::thematic_rmd(font = "auto")
pre code {
font-size: 14px; /* Adjust the font size as desired */
}
Themed Plots
Color list
freq_colors <- c("black", "white", "red", "blue", "green", "yellow", "orange", "purple", "pink", "brown", "gray", "cyan", "magenta", "turquoise", "lavender", "olive", "maroon", "teal", "navy", "beige")
d1<- data.frame(table(gsub('[1-9]','',colors())))
d1[order(d1$Freq,decreasing = T),]
## Var1 Freq
## 51 gray 91
## 56 grey 91
## 52 gray0 10
## 57 grey0 10
## 2 antiquewhite 5
## 3 aquamarine 5
## 4 azure 5
## 6 bisque 5
## 9 blue 5
## 11 brown 5
## 12 burlywood 5
## 13 cadetblue 5
## 14 chartreuse 5
## 15 chocolate 5
## 16 coral 5
## 18 cornsilk 5
## 19 cyan 5
## 22 darkgoldenrod 5
## 28 darkolivegreen 5
## 29 darkorange 5
## 30 darkorchid 5
## 33 darkseagreen 5
## 35 darkslategray 5
## 39 deeppink 5
## 40 deepskyblue 5
## 43 dodgerblue 5
## 44 firebrick 5
## 49 gold 5
## 50 goldenrod 5
## 54 green 5
## 59 honeydew 5
## 60 hotpink 5
## 61 indianred 5
## 62 ivory 5
## 63 khaki 5
## 65 lavenderblush 5
## 67 lemonchiffon 5
## 68 lightblue 5
## 70 lightcyan 5
## 71 lightgoldenrod 5
## 76 lightpink 5
## 77 lightsalmon 5
## 79 lightskyblue 5
## 83 lightsteelblue 5
## 84 lightyellow 5
## 87 magenta 5
## 88 maroon 5
## 91 mediumorchid 5
## 92 mediumpurple 5
## 100 mistyrose 5
## 102 navajowhite 5
## 106 olivedrab 5
## 107 orange 5
## 108 orangered 5
## 109 orchid 5
## 111 palegreen 5
## 112 paleturquoise 5
## 113 palevioletred 5
## 115 peachpuff 5
## 117 pink 5
## 118 plum 5
## 120 purple 5
## 121 red 5
## 122 rosybrown 5
## 123 royalblue 5
## 125 salmon 5
## 127 seagreen 5
## 128 seashell 5
## 129 sienna 5
## 130 skyblue 5
## 131 slateblue 5
## 132 slategray 5
## 134 snow 5
## 135 springgreen 5
## 136 steelblue 5
## 137 tan 5
## 138 thistle 5
## 139 tomato 5
## 140 turquoise 5
## 142 violetred 5
## 143 wheat 5
## 146 yellow 5
## 1 aliceblue 1
## 5 beige 1
## 7 black 1
## 8 blanchedalmond 1
## 10 blueviolet 1
## 17 cornflowerblue 1
## 20 darkblue 1
## 21 darkcyan 1
## 23 darkgray 1
## 24 darkgreen 1
## 25 darkgrey 1
## 26 darkkhaki 1
## 27 darkmagenta 1
## 31 darkred 1
## 32 darksalmon 1
## 34 darkslateblue 1
## 36 darkslategrey 1
## 37 darkturquoise 1
## 38 darkviolet 1
## 41 dimgray 1
## 42 dimgrey 1
## 45 floralwhite 1
## 46 forestgreen 1
## 47 gainsboro 1
## 48 ghostwhite 1
## 53 gray00 1
## 55 greenyellow 1
## 58 grey00 1
## 64 lavender 1
## 66 lawngreen 1
## 69 lightcoral 1
## 72 lightgoldenrodyellow 1
## 73 lightgray 1
## 74 lightgreen 1
## 75 lightgrey 1
## 78 lightseagreen 1
## 80 lightslateblue 1
## 81 lightslategray 1
## 82 lightslategrey 1
## 85 limegreen 1
## 86 linen 1
## 89 mediumaquamarine 1
## 90 mediumblue 1
## 93 mediumseagreen 1
## 94 mediumslateblue 1
## 95 mediumspringgreen 1
## 96 mediumturquoise 1
## 97 mediumvioletred 1
## 98 midnightblue 1
## 99 mintcream 1
## 101 moccasin 1
## 103 navy 1
## 104 navyblue 1
## 105 oldlace 1
## 110 palegoldenrod 1
## 114 papayawhip 1
## 116 peru 1
## 119 powderblue 1
## 124 saddlebrown 1
## 126 sandybrown 1
## 133 slategrey 1
## 141 violet 1
## 144 white 1
## 145 whitesmoke 1
## 147 yellowgreen 1
Rainbow Colors
par(bg="#202123")
par(col.axis="#B8BCC2")
barplot(seq(1,20,1), col=rainbow(20))
## Error : The fig.showtext code chunk option must be TRUE
colorRampPallete
par(col.axis="#B8BCC2")
d <- colorRampPalette(c('yellow','green','red','brown'))
d(20)
## [1] "#FFFF00" "#D6FF00" "#AEFF00" "#86FF00" "#5DFF00" "#35FF00" "#0DFF00"
## [8] "#1AE400" "#43BB00" "#6B9300" "#936B00" "#BB4300" "#E41A00" "#FA0202"
## [15] "#EC0808" "#DD0F0F" "#CF1616" "#C11C1C" "#B32323" "#A52A2A"
barplot(seq(1,20,1),col=d(20))
## Error : The fig.showtext code chunk option must be TRUE
barplot(seq(1,20,1),col=grey.colors(20))
## Error : The fig.showtext code chunk option must be TRUE
ggplot
library(ggplot2)
par(col.axis="#B8BCC2")
s <- read.table('crawley/scatter1.txt',header=T)
g1 <- ggplot(s, aes(xv,ys))+geom_smooth(method='lm',size=3,colour='blue')
## Warning: Using `size` aesthetic for lines was deprecated
## in ggplot2 3.4.0.
## ℹ Please use `linewidth` instead.
## This warning is displayed once every 8 hours.
## Call `lifecycle::last_lifecycle_warnings()` to
## see where this warning was generated.
g2 <- g1+geom_point(colour='skyblue',alpha=1/2)
plot(g2)
## Error : The fig.showtext code chunk option must be TRUE
## `geom_smooth()` using formula = 'y ~ x'
